home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / comm / mmgr / MM_FbMRMv12.lha / MM / Other_Utils / MM_FbMRM-AutoCreateIndex.rexx < prev   
OS/2 REXX Batch file  |  1996-08-26  |  1KB  |  60 lines
  1. /*
  2.  
  3.     This program creates an index for MM_FbMRM
  4.  
  5.     ©1996 by Sebastian Bleikamp
  6.  
  7. */
  8.  
  9. parse arg system.arguments
  10.  
  11. system.tempfile = 'T:FbMRM_CI.tmp'
  12.  
  13.  
  14. address 'MAILMANAGER'
  15.  
  16.  
  17. if (system.arguments='') then do
  18.     say "Help:"
  19.     say
  20.     say "rx MM_FbMRM-AutoCreateIndex.rexx <indexfile> <group> <type> <level> <path>"
  21.     say
  22.     exit 0
  23. end
  24.  
  25. parse var system.arguments indexfile ' ' group ' ' type ' ' level ' ' path
  26.  
  27. address command 'LIST '||path||' LFORMAT "%N,;%P%N,;%L,;%C" FILES TO '||system.tempfile
  28.  
  29. MM_ReadStem system.tempfile 'RStem'
  30. if (rc~=0) then exit 51
  31. MM_DeleteStem system.tempfile
  32. MM_SortStem 'RStem'
  33.  
  34. MM_ReadStem indexfile 'DSTEM'
  35. if (rc~=0) then exit 52
  36. bakfile = indexfile||'.bak'
  37. MM_WriteStem bakfile 'DSTEM'
  38. if (rc~=0) then exit 53
  39. do i=0 to DStem.count-1
  40.     parse var DStem.i grp '|' othr
  41.     if (grp~=group) then do
  42.         MM_AddToStem 'IStem' 'DStem.'||i
  43.     end
  44. end
  45.  
  46. do i=0 to RStem.count-1
  47.     parse var RStem.i fname ',;' fpath ',;' fsize ',;' fcom
  48.     add = group||'|'||fname||'|'||type||'|'||fpath||'|'||fsize||'|'||level||'|'||fcom
  49.     MM_AddToStem 'IStem' 'add'
  50. end
  51.  
  52. MM_WriteStem indexfile 'IStem'
  53. if (rc~=0) then exit 54
  54.  
  55. exit 0
  56.  
  57.  
  58.  
  59. /* EOF */
  60.